'{$STAMP BS2sx}


F VAR Word
C VAR Word
T VAR Word
T1 VAR Word
OUTPUT 12 'front input pin 10

DEBUG CLS, "Frequency # of Contacts", CR

FOR F = 13000 TO 15500 STEP 10

T = 0

FOR C = 1 TO 10

FREQOUT 12,1,F
T1 = IN10
IF T1 = 1 THEN pass
T = T + 1

:pass
PAUSE 10

NEXT

DEBUG DEC F, " ", DEC T, CR

NEXT

STOP